Computer Life 1997 February/Computer Life February 1997.iso/S/VN/PRODUCT/VNOTES95.EXE/0/RCDATA/TFRMALARM/TFRMALARM.txt

Text File | 1996-07-07 | 5KB | 235 lines

object frmAlarm: TfrmAlarm
  Left = 155
  Top = 103
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  ActiveControl = calDate
  BorderIcons = []
  BorderStyle = bsDialog
  ClientHeight = 300
  ClientWidth = 282
  Font.Color = clWindowText
  Font.Height = 12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object panMain: TPanel
    Left = 0
    Top = 0
    Width = 282
    Height = 269
    Align = alTop
    Alignment = taLeftJustify
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderWidth = 4
    TabOrder = 0
    object lblDate: TLabel
      Left = 12
      Top = 8
      Width = 260
      Height = 20
      Alignment = taCenter
      AutoSize = False
    end
    object lblTime: TLabel
      Left = 114
      Top = 154
      Width = 23
      Height = 13
      Alignment = taRightJustify
      Caption = '&Time'
      FocusControl = txtHour
    end
    object calDate: TCalendar
      Left = 13
      Top = 28
      Width = 255
      Height = 95
      Hint = 'Click to select a date'
      StartOfWeek = 0
      TabOrder = 0
      UseCurrentDate = False
      OnChange = calDateChange
    end
    object btnYearBack: TButton
      Left = 13
      Top = 122
      Width = 48
      Height = 18
      Hint = '1 Year Back'
      Caption = '<<'
      TabOrder = 1
      OnClick = btnYearBackClick
    end
    object btnMonthBack: TButton
      Left = 61
      Top = 122
      Width = 48
      Height = 18
      Hint = '1 Month Back'
      Caption = '<'
      TabOrder = 2
      OnClick = btnYearBackClick
    end
    object btnMonthFore: TButton
      Left = 172
      Top = 122
      Width = 48
      Height = 18
      Hint = '1 Month Forward'
      Caption = '>'
      TabOrder = 4
      OnClick = btnYearBackClick
    end
    object btnYearFore: TButton
      Left = 220
      Top = 122
      Width = 48
      Height = 18
      Hint = '1 Year Forward'
      Caption = '>>'
      TabOrder = 5
      OnClick = btnYearBackClick
    end
    object btnToday: TButton
      Left = 109
      Top = 122
      Width = 63
      Height = 18
      Hint = 'Select Today'#39's Date'
      Caption = 'Today'
      TabOrder = 3
      OnClick = btnYearBackClick
    end
    object cboAMPM: TComboBox
      Left = 230
      Top = 151
      Width = 39
      Height = 21
      Hint = 'AM / PM'
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'AM'
        'PM')
      MaxLength = 2
      TabOrder = 10
    end
    object udwHour: TUpDown
      Left = 169
      Top = 151
      Width = 12
      Height = 21
      Hint = 'Hours'
      Associate = txtHour
      Min = 0
      Max = 11
      Position = 0
      TabOrder = 7
      Wrap = True
    end
    object txtHour: TEdit
      Left = 144
      Top = 151
      Width = 25
      Height = 21
      Hint = 'Hours'
      TabOrder = 6
      Text = '0'
    end
    object udwMinute: TUpDown
      Left = 212
      Top = 151
      Width = 12
      Height = 21
      Hint = 'Minutes'
      Associate = txtMinute
      Min = 0
      Max = 59
      Position = 0
      TabOrder = 9
      Wrap = True
    end
    object txtMinute: TEdit
      Left = 187
      Top = 151
      Width = 25
      Height = 21
      Hint = 'Minutes'
      TabOrder = 8
      Text = '0'
      OnChange = txtMinuteChange
    end
    object lstWeekdays: TListBox
      Left = 13
      Top = 197
      Width = 255
      Height = 59
      Hint = 'Weekdays to Repeat Alarm'
      Columns = 3
      Enabled = False
      ExtendedSelect = False
      ItemHeight = 13
      Items.Strings = (
        'Sunday'
        'Monday'
        'Tuesday'
        'Wednesday'
        'Thursday'
        'Friday'
        'Saturday')
      MultiSelect = True
      TabOrder = 12
    end
    object chkRepeat: TCheckBox
      Left = 13
      Top = 175
      Width = 255
      Height = 19
      Hint = 'Enable/Disable Repeat Settings'
      Caption = '&Repeat Settings'
      TabOrder = 11
      OnClick = chkRepeatClick
    end
  end
  object btnSet: TButton
    Left = 42
    Top = 270
    Width = 75
    Height = 25
    Hint = 'Set Alarm'
    Caption = 'OK'
    Default = True
    TabOrder = 1
    OnClick = btnSetClick
  end
  object btnCancel: TButton
    Left = 123
    Top = 270
    Width = 75
    Height = 25
    Hint = 'Cancel Changes'
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = btnCancelClick
  end
  object btnReset: TButton
    Left = 203
    Top = 270
    Width = 75
    Height = 25
    Hint = 'Reset/Remove Alarm'
    Caption = '&Reset'
    TabOrder = 3
    OnClick = btnResetClick
  end
end